home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 27 / PC Gamer IT CD 27.iso / MEDIA / STORE.DXR / Internal_70_mute button.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  658 b   |  27 lines
  1. on mouseEnter me
  2.   cursor(280)
  3.   puppetSprite(the currentSpriteNum, 1)
  4.   set the member of sprite the currentSpriteNum to "mute.roll"
  5.   set the text of field "rollover Text" to "Click here to toggle the sound."
  6. end
  7.  
  8. on mouseLeave me
  9.   cursor(-1)
  10.   puppetSprite(the currentSpriteNum, 0)
  11.   set the text of field "rollover Text" to EMPTY
  12. end
  13.  
  14. on mouseDown me
  15.   global originalVolume
  16.   set the member of sprite the currentSpriteNum to "mute.press"
  17.   if the soundLevel <> originalVolume then
  18.     set the soundLevel to originalVolume
  19.   else
  20.     set the soundLevel to 0
  21.   end if
  22. end
  23.  
  24. on mouseUp me
  25.   set the member of sprite the currentSpriteNum to "mute.roll"
  26. end
  27.